htXTSList <- function (pattern, n=5) {
  result <- list()
  for (i in 1:length(pattern)) {
    result[[names(pattern)[i]]] <- ht(pattern[[i]], n=n)
  }
  return (result)
}